home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 061-070 / amok63 / m2ced / txt.lha / Config.def < prev    next >
Text File  |  1991-11-13  |  2KB  |  73 lines
  1. (**********************************************************************
  2.  
  3.     :Program.    Config.def
  4.     :Contents.   Configuration of M2CED
  5.     :Author.     Steffen Reith
  6.     :Address.    Hessenstr. 64, D-8700 Wuerzburg
  7.     :Phone.      None
  8.     :Copyright.  Shareware
  9.     :Language.   Modula-2
  10.     :Translator. M2Amiga A+L V4.096d
  11.     :Imports.    req
  12.     :History.    V1.0 18.June 1990
  13.     :History.    V1.1 6 Nov.  1990
  14.  
  15. **********************************************************************)
  16. (*$ StackParms:=FALSE Volatile:=FALSE CaseChk:=FALSE *)
  17. (*$ StackChk:=FALSE RangeChk:=FALSE OverflowChk:=FALSE NilChk:=FALSE *)
  18. DEFINITION MODULE Config;
  19.  
  20. FROM req IMPORT PathType;
  21.  
  22. CONST MaxWS=31;
  23.       MaxCM=63;
  24.       MaxName=32;
  25.       ConfigFile='S:M2CED.config';
  26.  
  27.       WindowDefault='CON:0/11/500/100/';
  28.       ContMsgDefault='Press ALT Return to continue';
  29.       CompilerNameDefault='M2:m2c -d ';
  30.       LinkerNameDefault='M2:m2l ';
  31.       OptimizerNameDefault='M2:m2o ';
  32.  
  33.       compileDefault=51;
  34.       linkDefault=40;
  35.       optDefault=24;
  36.       startDefault=33;
  37.       loadDefault=18;
  38.       findErrorDefault=23;
  39.       cancelDefault=69;
  40.       continueDefault=68;
  41.  
  42. TYPE WindowString=ARRAY[0..MaxWS] OF CHAR;
  43.      ContMsgString=ARRAY[0..MaxCM] OF CHAR;
  44.      NameString=ARRAY[0..MaxName] OF CHAR;
  45.  
  46.      P=RECORD
  47.         Window:WindowString;
  48.         ContMsg:ContMsgString;
  49.         CompilerName,LinkerName,OptimizerName:NameString;
  50.         compileN,linkN,optN,startN:CARDINAL;
  51.         loadN,findErrorN,cancelN,continueN:CARDINAL;
  52.        END;
  53.  
  54. VAR Para:P;
  55.  
  56.  
  57. PROCEDURE WriteFile(VAR File:PathType;OffSet:LONGINT);
  58. (*:Input.     Name of current file
  59.   :Input.     Byteoffset of the cursor
  60.   :Semantic.  Saves the name for later restart
  61.   :Note.      Creates a file:  s:M2CED.restart
  62. *)
  63.  
  64. PROCEDURE ReadFile (VAR File:PathType;VAR OffSet:LONGINT);
  65. (*:Output.    Name of a file to be loaded
  66.   :Output.    Byteoffset of the cursor
  67.   :Semantic.  Gives you the name of a file
  68.   :Notes.     Read from s:M2CED.restart
  69.   :Notes.     See WriteFile
  70. *)
  71.  
  72. END Config.
  73.